Tidying to businesses in Manhattan

rest_inspec =
  rest_inspec %>% 
  janitor::clean_names() %>%
  drop_na()

Scatterplot of latitude vs. longitude, colored by grade

rest_inspec %>%
  mutate(
    label = str_c("Borough: ", boro, "\nScore: ", score)
  ) %>% 
  plot_ly(
    x = ~latitude, y = ~longitude, color = ~grade, text = ~label,
    type = "scatter", mode = "markers", alpha = 0.5
  )